home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_126_Self Affirmations code.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  2.8 KB  |  132 lines
  1. global gMasterData, gFillWords
  2.  
  3. on goSelf
  4.   go(label("self1"))
  5.   set the movieTime of sprite 5 to 0
  6.   set the movieRate of sprite 5 to 1
  7.   setUserArea(gMasterData, #self1)
  8. end
  9.  
  10. on goSelf2
  11.   go(label("self2"))
  12.   goNarrator(gMasterData, "29")
  13.   setUserArea(gMasterData, #self2)
  14.   setFingerCursor(#on, [10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24])
  15.   set gFillWords to [#empty, #empty, #empty]
  16. end
  17.  
  18. on self2From3
  19.   go(label("self2") + 1)
  20.   setUserArea(gMasterData, #self2)
  21.   setFingerCursor(#on, [10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24])
  22. end
  23.  
  24. on goSelf3
  25.   setPuppetState([27, 28, 29], #n, 0)
  26.   getSentence()
  27.   go(label("self3"))
  28.   goNarrator(gMasterData, "30")
  29.   setUserArea(gMasterData, #self3)
  30. end
  31.  
  32. on exitSelf2
  33.   stopSounds()
  34.   setPuppetState([27, 28, 29], #n, 0)
  35.   setFingerCursor(#off, [10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24])
  36. end
  37.  
  38. on exitSelf3
  39.   global checkMarks2
  40.   if getaProp(checkMarks2, #self) = 0 then
  41.     setaProp(checkMarks2, #self, 1)
  42.   end if
  43. end
  44.  
  45. on clickWord
  46.   set thisSprite to the clickOn
  47.   set vName to the name of member the member of sprite thisSprite
  48.   case thisSprite of
  49.     10, 11, 12, 13, 14:
  50.       set vSprite to 27
  51.     15, 16, 17, 18, 19:
  52.       set vSprite to 28
  53.     20, 21, 22, 23, 24:
  54.       set vSprite to 29
  55.     otherwise:
  56.       exit
  57.   end case
  58.   puppetSprite(vSprite, 1)
  59.   set the member of sprite vSprite to member (vName && "fill")
  60.   set the loc of sprite vSprite to point(320, 240)
  61.   updateStage()
  62.   getWord(thisSprite)
  63. end
  64.  
  65. on getWord thisSprite
  66.   case thisSprite of
  67.     10:
  68.       setWord(1, #confident)
  69.     11:
  70.       setWord(1, #focused)
  71.     12:
  72.       setWord(1, #steadfast)
  73.     13:
  74.       setWord(1, #courageous)
  75.     14:
  76.       setWord(1, #persistent)
  77.     15:
  78.       setWord(2, #unrelenting)
  79.     16:
  80.       setWord(2, #determined)
  81.     17:
  82.       setWord(2, #intelligent)
  83.     18:
  84.       setWord(2, #tenacious)
  85.     19:
  86.       setWord(2, #unfaltering)
  87.     20:
  88.       setWord(3, #ambition)
  89.     21:
  90.       setWord(3, #aspirations)
  91.     22:
  92.       setWord(3, #desire)
  93.     23:
  94.       setWord(3, #dream)
  95.     24:
  96.       setWord(3, #goal)
  97.   end case
  98. end
  99.  
  100. on setWord vListPos, vWord
  101.   setAt(gFillWords, vListPos, vWord)
  102. end
  103.  
  104. on getSentence
  105.   set vNewLine to 1
  106.   repeat with vWord in gFillWords
  107.     if vWord = #empty then
  108.       set vNewLine to 0
  109.       exit repeat
  110.     end if
  111.   end repeat
  112.   if vNewLine then
  113.     set vTempText to EMPTY
  114.     put RETURN & "I am" && string(getAt(gFillWords, 1)) && "and" && string(getAt(gFillWords, 2)) & RETURN & "in the pursuit of my" && string(getAt(gFillWords, 3)) & "." & RETURN after vTempText
  115.     put vTempText before field "self statement"
  116.   end if
  117. end
  118.  
  119. on showHint
  120.   set the editable of member "self statement" to 0
  121.   go("hint")
  122. end
  123.  
  124. on exitHint
  125.   set the editable of member "self statement" to 1
  126.   go(label("self3") + 1)
  127. end
  128.  
  129. on selfReset
  130.   set the text of member "self statement" to EMPTY
  131. end
  132.